lext = 1000;
lint = 100;
Point(100000) = {50000,-20000, 20000,lext};
Point(100001) = {-20000,-20000,20000,lext};
Point(100002) = {50000,-20000,  -20000,lext};
Point(100003) = {-20000,-20000,-20000,lext};
Line(100001) = {100000,100001};
Line(100002) = {100001,100003};
Line(100003) = {100003,100002};
Line(100004) = {100002,100000};

Merge "A319.brep";
Line Loop(100005) = {100004,100001,100002,100003};
Plane Surface(100006) = {100005};
Extrude {0,40000,0} {
  Surface{100006};
}
Delete {Volume {1};}
Surface Loop(100029) = {100019,100006,100015,100028,100023,100027};
Surface Loop(100031) = {38,82,72,65,6,43,39,40,8,5,4,7,46,42,45,44,41,37,36,21,11,10,33,31,9,32,15,12,13,14,23,24,25,17,22,20,18,16,19,27,26,29,30,28,35,34,62,56,47,58,2,71,48,53,66,57,68,1,3,61,69,64,51,55,52,54,49,50,67,63,60,70,59,81,78,79,83,75,80,73,74,77,76};
Volume(100032) = {100029,100031};
Characteristic Length {57,58,59,60,78,77,76,144,75,145,74,146,73,147,148,72,62,149,63,150,151,64,152,65,153,66,154,67,155,68,156,69,157,70,158,71,61,81,240,239,222,220,201,198,175,174,1,2,3,4,5,6,123,117,116,80,79,171,84,82,172,100,170,173,94,141,242,9,142,159,108,109,129,107,130,128,131,106,132,85,133,110,127,111,134,86,87,135,136,88,114,120,89,137,90,138,126,91,139,140,92,83,122,95,112,113,125,160,96,99,124,161,97,162,98,163,164,93,143,105,169,104,165,101,103,168,166,167,102,115,121,118,237,234,286,52,285,219,236,233,218,281,119,14,283,13,280,10,8,235,231,7,241,53,287,217,284,232,238,25,279,12,282,230,193,202,194,54,278,11,55,195,192,203,191,204,205,190,189,206,188,207,187,208,209,186,185,210,184,211,183,212,182,213,181,214,180,215,179,216,56,196,24,178,199,200,277,51,276,50,275,49,48,274,177,176,15,197,273,47,272,271,46,270,45,16,243,269,44,268,43,267,42,266,265,41,244,17,40,264,224,225,226,227,229,228,263,39,38,18,245,262,37,246,19,223,221,247,20,261,36,21,248,35,260,34,259,33,258,32,257,31,22,249,256,30,255,29,28,254,27,253,23,250,251,26,252} = lint;
